﻿Public Class Alumno
    Dim ocdAlumno As New Datos.Alumno()

    Public Sub RegistrarAlumno(ByVal paramNombre As String, ByVal paramDni As String, ByVal paramFechaNac As String, ByVal paramEmail As String, ByVal paramDomicilio As String, ByVal paramEstadoCivil As String)
        ocdAlumno.RegistrarAlumno(paramNombre, paramDni, paramFechaNac, paramEmail, paramDomicilio, paramEstadoCivil)
    End Sub

    Public Function BuscarAlumno(ByVal paramDni) As DataSet
        Dim ds As New DataSet()
        ds = ocdAlumno.BuscarAlumno(paramDni)
        Return ds
    End Function

    Public Sub ModificarAlumno(ByVal paramNombre As String, ByVal paramDni As String, ByVal paramFechaNac As String, ByVal paramEmail As String, ByVal paramDomicilio As String, ByVal paramEstadoCivil As String)
        ocdAlumno.ModificarAlumno(paramNombre, paramDni, paramFechaNac, paramEmail, paramDomicilio, paramEstadoCivil)
    End Sub

    Public Sub EliminarAlumno(ByVal paramDni As String)
        ocdAlumno.EliminarAlumno(paramDni)
    End Sub

End Class
